home *** CD-ROM | disk | FTP | other *** search
/ Nordpool / nordpool mediagroup backgrounds vol 001.iso / scala / scarexx / bs.rexx < prev    next >
OS/2 REXX Batch file  |  1995-06-26  |  3KB  |  86 lines
  1. /*BrainStormer « 1995 by Pit Vetterick*/
  2. start:/*---------------------------------------------------Ausgabefenster*/
  3. CALL OPEN win,"con:0/0/640/200/BrainStormer V1.4 -output- «1995 by Pit Vetterick"
  4.  
  5. /*--------------------------------Datum und Uhrzeit ermiteln und zuweisen*/
  6. zeit = TIME("N")
  7. datum = DATE()
  8. mez = datum zeit
  9.  
  10.  
  11. /*-----------------------------------▄berprⁿfung ob -BSDat- vorhanden ist*/
  12. call OPEN("Datei","sys:BSDat","read")
  13. IF ~ result THEN DO
  14.      SAY "Moment mal..."
  15.      SAY ""
  16.      SAY "Ich kann meine Datei nicht finden, gib mir Dein OK und ich richte auf Deiner SYS-Partition"
  17.      SAY ""
  18.      SAY "eine neue Datei fⁿr mich ein."
  19.      SAY ""
  20.      SAY "SYS:BSDat erstellen ? (j)a - (n)ein"
  21.      pull neuedatei
  22.           IF neuedatei~=j THEN SIGNAL ende
  23.      CALL OPEN("Datei","sys:BSDat","write")
  24.      CALL WRITELN("Datei","Hallo user, ich bin die neue BSDat und habe mich auf Deiner Festplatte verewigt")
  25. CALL CLOSE("Datei")
  26. END
  27. /*--------------------------------------------Lesen der vorhandenen Datei*/
  28. call OPEN("Datei","sys:BSDat","read")
  29.  
  30. dateiwert = READLN("Datei")
  31. CALL CLOSE("Datei")
  32. CALL WRITELN win,mez
  33. CALL WRITELN win,dateiwert
  34.  
  35. /*-----------------------------------------------Lesen der neuen Eingaben*/
  36. SAY "...give me the input"
  37. PULL neuwert
  38.  
  39. /*---------------------------------------------Verbinden der beiden Werte*/
  40. gesammtwert = dateiwert "***" mez "-" neuwert
  41.  
  42. SAY gesammtwert
  43. SIGNAL delete
  44.  
  45. speichern:/*--------------------------------Speicher der gesammten Werte */
  46. CALL OPEN("Datei","sys:BSDat","write")
  47. CALL WRITELN("Datei",gesammtwert)
  48. /*.......................................................... Datei lΣnge */
  49. SAY SEEK("Datei",0,"E")
  50.  
  51. CALL CLOSE("Datei")
  52.  
  53. nochmal:/*-----------------------------------------------Zurⁿck zum Start*/
  54. SAY "Was ist los Lamer, keine Ideen mehr? (n)÷,(d)och"
  55. PULL raus
  56. SAY "Na gut, also dann..."
  57. IF raus~=n THEN SIGNAL start
  58. ELSE SIGNAL ende
  59.  
  60. ende:/*--------------------------------------------------------------ENDE*/
  61. SAY "CIAO...Lady, ich mach jetzt den Laden dicht"
  62. CALL CLOSE win
  63. EXIT
  64.  
  65. delete:/*-------------------------------------------------- L÷schabfrage */
  66. SAY "Gro▀er Meister, wⁿnschen Sie etwas aus der Datei zu l÷schen ? (j,n)"
  67. pull dele
  68. IF dele~=j THEN SIGNAL speichern
  69. /*.........................................................alles l÷schen */
  70. SAY "Willst Du den ganzen Mⁿll l÷schen ? (k)lar,(n)÷"
  71. PULL alles
  72. IF alles~=k then SIGNAL delwort
  73. gesammtwert = "Alles gel÷scht am" mez
  74. SIGNAL speichern
  75.  
  76. delwort:/*..................................Anzahl der Wort in der Datei */
  77. SAY WORDS(gesammtwert)
  78.  
  79.    SAY "Geben Sie die Position des Wortes ein ab wo gel÷scht werden soll:"
  80.       PULL erste
  81.    SAY "Geben Sie die Position des Wortes ein bis wo gel÷scht werden soll:"
  82.       PULL letzte
  83.          gesammtwert =  DELWORD(gesammtwert,erste,letzte)
  84.    SAY gesammtwert
  85. SIGNAL speichern
  86.